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STIILE 


7 lStSsintask: 


7do; 
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PAGE 
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THIS ROUTINE REMOVES CCOMMANCS AND RESPONSES FROM THE 
TO THIS DEVICES. LT. ITs. CALLED. SY MIPSNO 


ANC 


MIPRCV 


; 
y REQUEST QUEUE 
7 
, 


NAME 
PUBLIC 
EXTRN 
EXTRN 


INTASK 
INTASK 


WHEN THEY ARE LCCKING FOR INPUT. 


QOUTRED-INRQD/WREPLY-PTOM2 
RQTPTR-RGGPTR-RLTPTR-RLGPTRe-TRQGPT 


SINCLUDECSFIIMIP.EQU) 


/ 


e DEFINE 


7 
CERROR 
GBUSY 
PIRSVG 
GOISAB 
GFULL 


DISAST. 


FULLF 


TERRCR 
TBUSY 

FIRSTT 
TOTSAB 
TEMPTY 
CISABG 
EMPTYF 


4 


, DEFINE 


7 
CSENC 
SENTCK 
UNKNP 
ACTIVP 
INSUFM 


INACTP 


CEADP 


7 


> OEFINE MIP-ISIS PARAMETERS 


; 
MYIDS 
THIDEV 


RQD RESULTS 


MIP CMDS ANC 


EQU 
ZQU 


-EQU 


cQU 
EQU 
EQU 
EQU 


EQU 
EQU 
CSEG 


70H 
80H 
81H 
e3H 
85H 
§7H 
9H 
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rdeclare Gut?RQD word 
; InskQ0 word 
WSreply byte 
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LOC O8J LING 
ae 
56 


00c0Q cod0000 
0003 1F 83 
0004 D8 84 


m 
oO 
RO 


0005 7E &9 
O006 FEO $0 
0003 C2500C C $1 


00GB 
OOCC 56 $2 
O0CD 23 | 100 
QOCE 25 1C1 
OOCF 7é Ie 
0010 4F | 103 
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0012 | 
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SOURCE STATEMENT 


7Gensint: 
, precedure external, 
rend Gentints 


PI KRREKRKKKKKKK OK I OK KR FOR IO RIO ROR IO IO IO I IO do / 


vinstask: 


, procecure 
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1S ie 


Co 
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cleclare 


public, 


Msgptr word, 
Msg based Msgptr structure (MipSmsgS$format), 
G$RQEptr word, 


GERQEntry based GERQEptr structure (RgentrySformat), 


TSROQEptr word, 


TERQEntry based TIRQEptr structure(RqentryS$format), 


GiveSstate byte, 
TakeSstate byte, 
Port byte, 

Cmd byte, 
Given boolean,s 
Listbase word, 
Listlink based 
Teresult byte, 


Listbase word, 


de while not (TakeSstete:=RqtSptrC.In$SRQd))- 


CALL 
RAR 
RC 
/* 
there is something in the queue, take it 
*x/ 


RQTPTR 


if (TSRCEntry Request$id = CSEND then 
MOV A;,M , GET REQUESTIO 
CPI CSENE 
JNZ a? 
do, /x CSEND x*/ 
/x* 


see if socket is open and this device can get to 


buffer 
xf 
‘Port = TERQEntry.DdestSportsid, 


INX 1 e INDEX TO REQUEST ID 

MOV | CrM 7 SAVE SRC REQ IC 

INX H * INDEX TOC DEST DEVICE 

INX H 7 AND SKIP TO PORT 

MOV AsM , LOAD PORT 

MOV Cr A , SAVE PORT IN C 

INX H 7 INDEX TO SRC DEV AND SAVE IT 
MOV Erm 

PUSd C 


if Port < Max$noSports then 


GP CA 
ANC 2% 


7 SAVE SRC REQUEST ICD ANC’ SRC DEVICE 
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LOC 


OBJ 
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Ne 


the socket exists 
x/ 
Msgptr = TSRQEntry.bufbaseadr (0); 


MVI 3/SENTOK ry SET UP RESPONSE 
FUSH B > SAVE TRESULT/PGRT 
INX H 7 get past srecDeEV 
MOV Crit 7 LOAD MSGPTR 
INX H 
MOV BeM 7 MSGPTR IN B/C 
INX i 7, to bufbaseadr(1) 
{x 
send it off to the user 
x/ : 
Msgelink(€0) = O-7 
XCHG 
POP © Ap r GET PORT 
PUSH D 
XRA A 
STAX B 
INX B y FILL LINK FIELC WITH ZEROES 
STAX 8 > TO MAKE IT THE LAST ON THE PORT 
Listbase = .«PortStoSmailbox (Port), 
MVI 0,0 
er H,PTCMB 
CAD OD. 
DAD D 
do while (Listlink <> 0); 
MOV Ayil | 
INX H >, SEE IF PTS TO ZERO CEOL)D 
CRA M . 
JZ £12 ‘ 
Listbase = Listlink, 
MOV D,™ 
DCX H 
MOV EyM 
XCHG 
end, 
JMP a1 
Listlink = Msgptr, 
CCX 3 7 GET BACK TO MSGPTR 
MOV M8 
BCX | 
MCV. MrC 
ends 
JMP a5 
else Ttresult = UNKNP 
MVI B,UNKNP : 7 
PUSH B 7 TRESULT SOULD BE ON TOS 
end, 
Given = FALSE, 
ala Kee, nA + fc An” 
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LOC OBJ : Line SCURCE STATEMENT 
165 > /* 
166 ; now send the cmd or ack/nak to the device 
167 
168 + see if we can put the response into the RQ 
169 + x/ \ 
: 170 ; if CRagtptr¢(.OuteRQ0) and GERROR) = O then 
0046 Cbpo000 Eg 171 813: CALL TRQGPT 
0049 1F _ tee : RAR 
OO4A 3£89 173 MVI A, DEADP ITF HAS ERROR THEN PROBLEM 
OO04C C1 174 POP 8 7 GET TRESULT AND PORT 
004D 01 175 POP D 7, GET REGID AND SRC DEVICE 
OO4E DAS5D0C C 176 Jc a? 
ea deee: do; 
178 ; /x : 
se ae there is space in the RQ 
1&0 ; x/ . 
181 =; SSRQEntry RequestSid = TSresult, 
0051 70 132 MOV M78 , PUT TRESULT AWAY 
183 > GERQEntry«SRCSREQUESTSIO = TERQEntry.~SrcSRequestsids 
0052 23 1&4 INX H 
0053 72 185 | MOV MD 
186 7 G3RQEntry.CestCavsSid = TSROEntry.SrcsOevSid;s 
1&7 | | 
0054 23 188 INX H 
0055 73 189 MOV ME 
0056 13 . 190 -INX D 
191 +7 GiveSstate = RlgSptr(.CutfRQ0), 
OG57 CDO000 E 192 CALL RLGPTR ) 
193 , Given = TRUE; 
005A C3600C C 194 JMP ag 
195 ;7 end; 
196 7 end, /* given loop */ 
197 + ands /kx cma processing x/ 
198 - else 
199 ; clo; 
200 - [x 
201 ; the received item is a response, so do what needs to 
202 7 be done. . 
203 ; x / 
204 - WErenly = TSRQEntry.~Requestd3id, 
00506 32000C E 205 a7 STA WREPLY 
cl6 + end, /*response processingx/ 
207 + /*x | 
e038 + we have completed processing on this taken item, release 
2C9 ; the RQ. Signal the device. 
210 ; x/ 
211; TakeSstete = R1ItSptr(.InFRQD)- 
0060 CoCcdOdCc E 212 &8: CALL RLTPTR 
213 7 and, /* while loop x*/ 
0063 C3000 C 214 JMP &9 
215 + x] 
216 send INStasks : 
217 


218 vand tSiSsSsiInitask-, 


ISIS-II 8080/8085 
MIP~ISZTS INTASK 
LOC OBJ 


PUBLIC SYMBOLS 
INTASK C QO0C 


EXTERNAL SYMBOLS 


INRQD € OOOC 
TRQGPT =€ 0000 
USER SYMBOLS 

a11 C 002F- 

a9 Cc o00c 
FIRSTG A 0008 
INACTP A 0087 
RLGPTR £& OOOC 
TEMPTY A OO02C 
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m 
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GFULL 
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